home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_util / vbrig / default.ri_ / default.ri
Encoding:
Text File  |  1995-10-01  |  475 b   |  30 lines
  1. ;Sample - VB/Rig default; same as rigging
  2. ;         without a custom .RIG file. 
  3.  
  4. [PushFull_Block]
  5. Const VBRIG_PROC_ID_STRING = "%PROCID%"
  6. Dim VBRigErr As Long, VBRigErrMsg As String
  7. On Error GoTo %TRAPLABEL%
  8. %PUSH%
  9.  
  10. [PushMin_Block]
  11. Const VBRIG_PROC_ID_STRING = "%PROCID%"
  12. %PUSH%
  13.  
  14. [PopFull_Block]
  15. %POP%
  16.  
  17. [PopMin_Block]
  18. %FIXPOP%
  19.  
  20. [Trap_Block]
  21. %POP%
  22. Exit %PROCTYPE%
  23.  
  24. %TRAPLABEL%:
  25. VBRigErr = Err
  26. VBRigErrMsg = Error$
  27. %SHOWLOG%
  28. %POP%
  29. Exit %PROCTYPE%
  30.